home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / magic / d / mtvoid.d < prev    next >
Text File  |  1997-10-26  |  1KB  |  43 lines
  1. DEFINITION MODULE mtVoid;
  2.  
  3. FROM SYSTEM IMPORT BYTE, WORD, LONGWORD, ADDRESS;
  4.  
  5. FROM MagicSys IMPORT lBITSET;
  6.  
  7. EXPORT void, v;
  8.  
  9. TYPE voidType = RECORD
  10.                   CASE :CARDINAL OF
  11.                     1 : b : BYTE|
  12.                     2 : w : WORD|
  13.                     3 : l : LONGWORD|
  14.                     4 : C : CARDINAL|
  15.                     5 : I : INTEGER|
  16.                     6 : B : BITSET; |
  17.                     11: O : BOOLEAN; |
  18.                     13: A : ADDRESS;
  19.                   END
  20.                 END;
  21. TYPE voidType2 = RECORD
  22.                   CASE :CARDINAL OF
  23.                     1 : b : BYTE|
  24.                     2 : w : WORD|
  25.                     3 : l : LONGWORD|
  26.                     4 : card : CARDINAL|
  27.                     5 : int  : INTEGER|
  28.                     6 : lcard: LONGCARD|
  29.                     7 : lint : LONGINT|
  30.                     8 : char : CHAR|
  31.                     9 : bset : BITSET|
  32.                     10: lbset: lBITSET |
  33.                     11: bool : BOOLEAN; |
  34.                     12: r    : ARRAY [0..3] OF INTEGER|
  35.                     13: a    : ADDRESS;
  36.                   END
  37.                 END;
  38.  
  39. VAR void : voidType;
  40.     v    : voidType2;
  41.  
  42. END mtVoid.
  43.